hg_cat <- function(...) {
  cat(format(Sys.time(), "%F %X"),  ...)
}

hg_msg = function(...) {
  message(format(Sys.time(), "%m-%d %H:%M"), ...)
}



hg_save_filename = function () {
  format(Sys.time(), "%m-%d--%H-%M-%S")
}



